home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.07 Jul 90 / Data Exchange ƒ / listing6.T < prev    next >
Encoding:
Text File  |  1989-01-20  |  512 b   |  19 lines  |  [TEXT/MPS ]
  1.     TITLE    'Test.a --A Fake Implementation module for Test.def'
  2.    CASE ON
  3.     
  4. Test__B72C5624C350        PROC    EXPORT
  5.         RTS      
  6.         ENDPROC
  7.       ENDHLock (dict);
  8.     status := write (outFile, dict^, length);
  9.    HUnlock (dict);
  10. END WriteDict;
  11.  
  12. PROCEDURE ProcessDict();
  13. (*
  14.    Process a dictionary record. If the record defines the string <inString> then replace it
  15. with the string <outString> and write out the modified dictionary record.  If it does not
  16. contain <inString> write it out unchanged.
  17.  
  18.    Method:
  19.        Find out what t